*	〜〜〜〜〜〜〜〜〜〜〜〜
*	〜〜〜 ハノイの塔 〜〜〜
*	〜〜〜〜〜〜〜〜〜〜〜〜
*
*	アセンブラでハノイの塔を解くためのプログラムです。
*	.R 実行形式にして TYPE すると、解法が“図解”されます。
*	円盤の枚数は次の N で指定します。

	N:=7

*	以下は、変更する必要はありません。

	ESC:=27

put	.macro	c
		.dc.b	c
	.endm

xline	.macro	n,c
		.dcb.b	n,c
	.endm

clear	.macro
		.dc.b	ESC,'*'
	.endm

locate	.macro	x,y
		.dc.b	ESC,'=',' '+y,' '+x
	.endm

	windowx:=96
	windowy:=31

	disk:='%'
	space:=' '
	pole:='|'
	base:='#'

	core:=2
	hat:=2

	width:=N+core

	center2:=windowx/2
	center1:=center2-width*2
	center3:=center2+width*2

	left:=center1-width
	right:=center3+width
	top:=(windowy-N)/2-hat
	bottom:=top+hat+N

	clear

	locate	left,bottom
	xline	right-left+1,base

	i:=1
	.rept	3
		j:=top
		.rept	bottom-top
			locate	center%i,j
			put	pole
			j:=j+1
		.endm
		i:=i+1
	.endm

	number1:=N
	number2:=0
	number3:=0

	i:=1
	.rept	N
		size1%i:=width-i
		locate	center1-size1%i,bottom-i
		xline	size1%i*2+1,disk
		i:=i+1
	.endm

move_disk	.macro	a,b
		p:=a
		q:=b
		i:=number%p
		j:=bottom-i
		.rept N-i+hat+1
			locate	center%p-size%p%i,j-1
			xline	size%p%i*2+1,disk
			locate	center%p-size%p%i,j
			xline	size%p%i,space
			put	pole
			xline	size%p%i,space
			j:=j-1
		.endm
		j:=center%p-size%p%i
		locate	j,top-2
		xline	size%p%i*2+1,disk
		locate	j,top-1
		xline	size%p%i*2+1,space
		.if	center%p<center%q
			.rept	center%q-center%p
				locate	j+size%p%i*2+1,top-2
				put	disk
				locate	j,top-2
				put	space
				j:=j+1
			.endm
		.else
			.rept	center%p-center%q
				locate	j-1,top-2
				put	disk
				locate	j+size%p%i*2,top-2
				put	space
				j:=j-1
			.endm
		.endif
		locate	j,top-1
		xline	size%p%i*2+1,disk
		locate	j,top-2
		xline	size%p%i*2+1,space
		locate	j,top
		xline	size%p%i*2+1,disk
		locate	j,top-1
		xline	size%p%i*2+1,space
		k:=number%q+1
		j:=top+1
		.rept N-k+hat
			locate	center%q-size%p%i,j
			xline	size%p%i*2+1,disk
			locate	center%q-size%p%i,j-1
			xline	size%p%i,space
			put	pole
			xline	size%p%i,space
			j:=j+1
		.endm
		number%p:=number%p-1
		number%q:=k
		size%q%k:=size%p%i
	.endm

hanoi	.macro	n,a,b,c
		.if n>0
			hanoi	n-1,a,c,b
			move_disk	a,c
			hanoi	n-1,b,a,c
		.endif
	.endm

	hanoi	N,1,2,3

	locate	0,bottom+2